home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD019c.dsk / PAL.14220.ZELMAN.APR.83.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  13 lines
  1. 1  TEXT : HOME : SPEED= 100
  2. 2  INVERSE : PRINT "IN ANSWER TO DON MILNES SOFTPAL PROGRAM:": NORMAL : PRINT "THERE IS A REMEDY FOR THE BUG IN APPLE'S'RENUMBER' PROGRAM!"
  3. 3  PRINT : PRINT "FIRST YOU NEED TO TRANSFER THE PROGRAMS 'RENUMBER INSTRUCTIONS' & 'RENUMBER' TO A DISK THAT IS NOT WRITE PROTECTED."
  4. 4  PRINT : PRINT "THEN TYPE IN THE FOLLOWING:"
  5. 5  PRINT : PRINT "]UNLOCK RENUMBER (RETURN)": PRINT "]LOAD RENUMBER (RETURN)": PRINT "]POKE 4789,172 (RETURN)": PRINT : PRINT "]POKE 4790,171 (RETURN)": PRINT : PRINT "]SAVE RENUMBER (RETURN)": PRINT "]LOCK RENUMBER (RETURN)"
  6. 6  SPEED= 255: VTAB 22: INVERSE : PRINT " [ESC] TO BASIC OR [RETURN] TO PAL.MENU ": NORMAL 
  7. 7  POKE  -16368,0
  8. 8  IF  PEEK( -16384) <128  THEN 8
  9. 9  GET A$:A =  ASC(A$): IF A < >27  AND A < >13  THEN  PRINT "<CTRL-G>";: GOTO 6
  10. 10  IF A = 13  THEN  PRINT : PRINT  CHR$(4);"RUN PAL.MENU": END 
  11. 11  VTAB 22: HTAB 1: CALL  -868: END 
  12. 12  REM                                                         SEE PAGE 180 OF MAY 1983  ISSUE OF INCIDER MAGAZINE   FOR "A QUICK RENUMBER FIX"  BY MARK J. YANNONE FOR      DETAILS
  13. 13  REM                                                          THIS SOFTPAL PROGRAM IS             FROM:                                                PAUL M. ZELMAN              739 TIFFT ST.               BUFFALO, NY 14220